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Author Brian Porter Creation Date 20-AUG-1981 
++ 
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Functional description: 


ve eet 3] 


of the buffer is as follows. 


tec seamen neon momen nem nore ea moe = + 


ssssssessss 


/ 
This module formats errorlog entries made by the lcdriver. The format 
| 
| 


c 
Cc 
c 
id 
c 
c 
c 
c 
c : ucb$w_csr : 
c Gere wer eres eee ee we ee secre werner een eee + 
9 c : ucb$w_bytxfer : 
0 c eee eee ee ee eee eee see ee ee eee see eee eee 
1 c : ucb$w_lincnt ' 
c Geweeeeseoesrosescesoscesesosssscscse$ 
q c : ucb$w prefix : 
4 c Pore r en eee nee ee m seen en ene see eee ome ma 
5 c ' ucb$w_ suffix 
$ c Geocececesonesoessesovcscoesseseesooo$ 
¢ ' ucb$w_ bufadr ' | 
: Cc ee ewe wr meteor wearer ee ew rom eer es woes ewenne $ | 
C : ucb$w “bytecnt : 
39 Cc Geoccecceeceeosvosveosescessoesecoss$ 
1 ¢ : ucb$w_csr2 ' 
26 Cc Gocoessesceoesessestouesessessouvessse$ | 
H ¢ : ucb$w_lines H 
4 c Geocecceeseoeooooosorososceososossor$ 
55 c : final map register : 
6038 Cc Perro r errors oer emer ees wm er ee ewe wee ee eee + 
5 c : previous map register : 
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: vec$l_mapreg 


Geoecoeeeeeecececescocccccecoccesoces 


Modified by: 

v03-002 panded? Sharon nolds, 28-Mar-1984 
Changed the call to pees its to ORBSL_OWNER. 

v03-001 SARO0076 Sharon A. Reynolds, 20-Jun-1983 


Changed the »cerr lege control in the ‘format’ statements 
for use with ERF. 


v02-002 BP0002 Brian Porter, 23-NOV-1981 
Minor edit. 
v02-001 8P0001 Brian Porter, 06-NOV-1981 


Added ‘device attention’ support. 


subroutine lcprinter (lun) 


include ‘src$:msghdr.for /nolist’ 
include ‘src$:deverr.for /nolist' 


byte lun 
integers4 csr 
integer*4 bytxfer 
integer*4 Lincnt 
integer*4 prefix 
integer*4 suffix 
integer*4 bufadr 
integer*4 bytecnt 
integer*4 csr2 
integer*4 Lines 
integer*4 final_map_register 
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7 integers4 previous_map_register 
integers4 vec$l_mapreg 
equivalence Cemb$l_dv_regsav(0),csr) 
equivalence Cemb$l_dv_regsav(1) ,bytxfer) 
equivalence (emb$\_dv_regsav(2),lincnt) 
equivalence (emt 5\_dv_regsav(3) .prefix) 
equivalence Cemb$\_dv_regsav(4) ,suffix) 
equivalence (emb$l_dv_regsav(5) ,bufadr) 
equivalence Cemb$\_dv_regsav(6) ,bytecnt) 
equivalence (emb$\_dv_regsav(7),csr2) 
equivalence (emb$l_dv_regsav(8), lines) 
0 equivalence (emb$l_dv_regsav(9),final_map_register) 
° equivalence (emb$\_dv_regsav(10) ,previous_map_register) 
e equivalence (emb$l_dv_regsav(11),vec$l_mapreg) 
0301 integers4 compress4 
0305 integer*4 compressc 
8 5 logical! diagnostic_mode 
integer*4 indirect_address 
ts integer*4 bytes_to_printer 
1 integer*4 paper_lines_moved 
18 byte prefix_array(2) 
12 equivalence (prefix, prefix_array) 
Hi integer*4 prefix_value 
i integer*4 prefix_count 
: character?! prefix_character 
§ byte suf fix_array(2) 
5 equivalence (suffix,suffix_array) 
$ integer*4 suffix_value 
§ integer*4 suffix_count 


character*! 


integer#4 
integere4 
integer*4 
integer*4 
character*15 
data 

data 

data 
character*17 
data 

data 
character*27 
data 

data 

data 

data 
character*28 
data 

data 
character*31 
data 

data 

data 
character*10 
data 

data 
character*33 
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ig-$e0-1984 0:28:06 


suffix_character 

page_length 

carriage width 

selected_map_register 

field 

vicsr(0:2) 

vicsr(0) /*PRINT ENABLE®*'/ 

vicsr(1) /*MASTER RESET#'/ 

vicsr(2) /"FORMAT CONTROL*'/ 

v2csr (6:7) 

v2csr (6) /*INTERRUPT ENABLE®*'/ 

v2csr(7) /*PRINT DONE®'/ 

v3csr (12:15) 

v3csr(12) /*LINE PRINTER NOT CONNECTED®'/ 
v3csr(13) /**'DAVFU"’ READY®'/ 

v3csr (14) /*LINE PRINTER OFF-LINE®'/ 
v3csr(15) /*NON-EXISTENT MEMORY®'/ 
vicsr2(0:1) 

vicsr2(0) /"EXTENDED BUS ADDRESS BIT 16*'/ 
vicsr2(1) /*EXTENDED BUS ADDRESS BIT 17#'/ 
v2csr2(8:10) 

v2csr2(8) /*AUTO INSERT <CR>#'/ 

v2csr2(9) /*<FF> TO <LF> CONVERT®'/ 
v2csr2(10) /*NON-PRINTING BYTE(S) DISCARDED*'/ 
v3csr2(11:12) 

v3csr2(11) /*DAVFU''®"/ 

v3csr2(12) /*LINE WRAP*'/ 


v4csr2(15:15) 
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data v4csr2(15) /*LOWER CASE TO UPPER CASE CONVERT®'/ 
character*8 reg_herald(0:8) 

data reg_herald(0) /‘*CSRe'/ 
data reg_herald(1) /*BYTXFER®'/ 
data reg_herald(2) /*LINCNT®'/ 
data reg_herald(3) /*PREFIX®'/ 
data reg_herald(4) /*SUFFIX®'/ 
data reg_herald(5) /"BUFADR*'/ 
data reg_herald(6) /"BYTECNT#'/ 
data reg_herald(7)  /'CSR2*'/ 
data reg_herald(8) /*LINES*'/ 


call fretof (lun) 

call dhead! (lun,'UBA DMF-32') 

diagnostic_mode = .false. 

if (LibSextzv (5,1,csr) .eq. 1) diagnostic_mode = .true. 
call Linchk (lun,2) 


write(lun, 10) "CSR'.csr 
format(/' ',t8,a,t24,28.8) 


if (.mot. diagnostic_mode) then 

call output (lun,csr,vicsr,0,0,2,'0") 
call output (lun,csr,v2csr.6,6,7,'0") 
indirect_addi: s = LibSextzv (8,3,csr) 
call Linchk (lun,1) 


write(lun,15) ‘INDIRECT ADDRESS #', indirect_address,'. 
format(' *,t40,a,i<compress4 (indirect addréss)>,a) 


call output (lun,csr,v3csr.12,12,15,'0") 
else 


call Linchk (lun,1) 


write(lun 420) "DIAGNOSTIC MODE ' 
format(' ',t40,a 
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endif 
call Linchk (lun,1) 


write(lun,25) *BYTXFER' ,bytxfer 
format(' ',tB,a,t24,28.6) 


if (.not. diagnostic_mode) then 

bytes_to_printer = LibSextzv(0,16,bytxfer) 

call Linchk (Llun,1) 

write (tun, 50) bytes_to_printer,'. BYTE(S) TO PRINTER’ 
ormat(’ °,t40,i<compress4 (bytes_to_printer)>,a) 
endif 

call Linchk (lun,1) 

write(lun,25) "LINCNT',Lincnt 

if (.not. diagnostic_mode) then 

if (LibSextzv(11,1,csr2) .eq. 0) then 

paper_lines_moved = LibSextzv(0,16,lincnt) 

call Linchk (Llun,1) 

write(lun,35) paper_lines_moved,'. PAPER LINE(S) THIS BUFFER" 

sergets -t40,i<compress% (paper_lines_moved)>,a) 

endif 

call Linchk (lun,1) 

write(lun,25) ‘PREFIX’ prefix 

if (.not. diagnostic_mode) then 

prefix_count = LibSextzv(0,8,prefix) 

prefix_value = LibSextzv(8,8,prefix) 

prefix character = char(prefix_array(2)) 

if (prefix_count .ne. 0) then 

if (prefix.value .ne. 0) then 

call Linchk (lun,2) 


write(lLun,40) "PREFIX COUNT *.prefix_count,’.' 
format(’ ',t40,a,i<compress4 (prefix-counts>,a) 


prefix character = ‘.' 
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Kk 4 
$73ep=1986 19:85:40 
call sys$fao ("!af*,,prefix_character,ival(1),prefix_value) 


if (prefix. character .eq. '.') then 
wr ieettun.20) "PREFIX CHARACTER NON-PRINTABLE' 
else 


wr yg ten. 28) "PREFIX CHARACTER ‘"*//prefix_character//''" 
ise if ¢ 


prefix.value .eq. 0 


en a 
LibSextzv(8,1,csr2) .eq. 1 
) then 


call Linchk (lun,1) 


write(lun.45) prefix_count,'. <CR><LF> SEQUENCE(S) PREFIXED’ 
format(' *,t40,i<compress4 (prefix_count)>,a) 


else if (prefix_value .eq. 0) then 

call Linchk (lun,1) 

wrisattun.65) prefix_count,’. <LF> SEQUENCE(S) PREFIXED' 
ona t 


te 


call Linchk (lun,1) 

write(lun,25) ‘SUFFIX’, suffix 

if (.not. diagnostic_mode) then 
suffix_count = LibSextzv(0,8,suffix) 
suffix_character = char(suffix_array(2)) 
suffix_value = LibSextzv(8,8,suffix) 

if (suffix.count .ne. 0) then 

if (suffix value .ne. 0) then 

call Linchk (lun,2) 


write(lun,50) "SUFFIX COUNT *,suffix_count,’.* 
format(* *,t40,a,i<compress4 (suffixzcounts>,a 


suffix_character = ‘.' 
call sys$fao ("!af*,,suffix_character,%val(1),suffix_value) 
if (suffix character .eq. '.") then 


VAX-11 FORTRAN 
DISKSVMSMASTER: 


—— | 


no 
wn 


WI 
SISIS ANNI SS ESAS 


MAMAN 
co. oD CD 
Wn 


RENSLSSSLEAE 


w 


LCPRINTER 


55 


Ifo senct9Re 00:32:08 


ay Seetten.ove "SUFFIX CHARACTER NON-P,. INTABLE' 
e 


wr'iveCtun.20) "SUFFIX CHARACTER *''//suffix_character//''" 


y‘se if ¢ 
suffix value .eq. 0 


(ong. 
1 LibSextzv(8,1,csr2) .eq. 1 
1) then 


call Linchk (lun,1) 


write (lun, 55) suffix_count,'. <CR><LF> SEQUENCE(S) SUFFIXED' 
format(' ',t40,i<compress4 (suffix_count)>,a) 


else if (suffix_value .eq. 0) then 

call Linchk (lun,1) 

wrisettun.55) suffix_count,". <LF> SEQUENCE(S) SUFFIXED' 
sai 

call Linchk (lun,1) 

write(lun,25) "BUFADR' ,bufadr 

if (.not. diagnostic_mode) then 


call calc_map (lun,0,csr2,bufadr) 
endif 


call Linchk (Llun,1) 

write(lun,25) "BYTECNT' bytecnt 

call Linchk (lun,1) 

write(lun,25) "CSR2'*,csr2 

if (.not. diagnostic_mode) then 

call output (Llun,csr2,vicsr2,0,0,1,'0") 
if (LibSextzv(2,1,csr) .eq. 1) then 

call output (lun,csr2,v2csr2,8,8,10,'1") 
endif 


call output (lun,csr2,v3csr2,11,11,12,'0") 
call output (lun,csr2,v4csr2,15,15,15,'0") 
endif 
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call Linchk (lun,1) 
write(lun,25) ‘LINES’, Lines 
if (.not. diagnostic_mode) then 


Fs] 


if ¢ 

1 LibSextzv(2,1,csr) .eq. 1 
.and, 

1 LibSextzv(11,1,csr2) .eq. 0 

1) then 


page_length = LibSextzv(0,8,Llines) 

carriage width = LibSextzv(8,8,lines) 

call Linchk (lun,2) ; 
write(lun,60) ‘PAGE LENGTH, acpove-ength *, LINE(S)', 
1 "PAGE WIDTH, ', carriage width, *. CHARACTER(S)’ 

60 format(' t46,a, <compress4 (page _length)>,a,/ 
1 t40,a,i<compress4 (carriage_width)>,a) 
endif 
endif 
if (emb$w_hd_entry .ne. 98) then 


call calc_map2 (0,csr2,bufadr,selected_map_register) 


el el cel cel lt 
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call uba_mapping (lun,selected_map_register,final_map_register) 

if (LibSextzv(16,16,emb$l_dv_iosb1) .gt. 512) then 

col} ubs_napping (Lun, (selected_map_register-1) ,previous_map_register) 
en 


ae ae on @& 


call vecmapreg (lun,vec$l_mapreg) 
endif 


write(lun.65) 
65 format(' °,:) 


call orb$l_owner (lLun,emb$l_dv_ownuic) 


call ucb$l_char (lun,emb$l_dv_char) 
call ucb$w_sts (lun,emb$w_dv_sts) 

call ucb$l_opcnt (lun,emb$l_dv_opcnt) 
call ucb$wlerrcnt (lun,emb$w_dv_errcnt) 
if (emb$w_hd_entry .ne. 98) then 

call Linchk (lun,1) 


HEF EEEEEPEEPSEEES EP EE EEE EEEEEE EEE EEE? 


—-ovo 


call Linchk (lun,1) 
| 
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write(lun,65) 

call Lcprinter_qio (lun,emb$w_dv_ func) 
call irp$wbcnt (Lun,emb$w_dv_bcnt) 
call irp$w_boff (lLun,emb$w_dv_boff) 
call irp$l_pid (lun,emb$l_dv_rapid) 
colt irptq_tosd (Lun,emb$l_dv_iosb1) 


return 

entry b_lcprinter (Lun) 

call dhead! (lun,"UBA DMF-32') 

call brief32 (lun,(9),csr,reg_herald,emb$t_dv_name,emb$w_dv_unit) 
return 


entry c_lcprinter (lun) 


call cryptk (lun,32,(9),csr,reg_herald,emb$t_dv_name,emb$w_dv_unit) 


return 


end 
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PROGRAM SECTIONS 


Name Bytes Attributes 
0 SCODE 24667 PIC CON REL LCL SHR EXE RD NOWRT LONG , 
1 SPDATA 4 PIC CON REL LCL SHR NOEXE RD NOWRT LONG i 
SLOCAL 183 PIC CON REL LCL NOSHR NOEXE D WRT LON i 
EMB 1 PIC OVR REL GBL SHR NOEXE RD WRT LONG : 
Total Space Allocated 5459 


ENTRY POINTS 


Seem 


Q 
Q 
0 
0 
0 
0 
0 
9 
0 
0 
0 
0 
Bs 
03 
$$ 
03 
3 
03 
02 
02 
02 
02 
02 


| 
| 
Address Type Name Address Type Name Address Type Name ' 
0-000008D6 B_LCPRINTER 0-00000905 C_LCPRINTER 0-00000000 LCPRINTER 
4 
VARIABLES 
Address Type Name Address Type Name 
3-00000066 1*4 BUFADR 3-0000006A 1*4 BYTECNT 
-000001D8 I*4 BYTES _TO_PRINTER 00000056 I*4 BYTXFER 
-000001F4 I*4 CARRIAGE-WIDTH -000001D0 I*4 COMPRESSC 
“00000052 I*4 CSR ~QO00006E I*4 CSR2 
-000001CD L*1 DIAGNOSTIC _MODE -0000001C L*l EMBSB_DV_CLASS 
-00000010 L*1 EMBS$B_DV_ERTCNT -00000011 L*l EMBSB_DV_ERTMAX 
~O00000SE L*1 EMBSB_DV_NAMLNG waist L*1 EMBSB_DV_SLAVE 
-0000001D L*l EMBSB_DV_TYPE -00000036 I*4 EMBSL_DV_CHAR ( 
-00000012 I*4 EMBS$L_DV_10SB1 -00000016 I*4 EMBSL_DV_10SB2 
26 I*4 EMBSL_DV_MEDIA -Q000004E I*4 EMBSL_DV_NUMREG 
2— I*4 EMBSL_-DV_OPCNT “00000032 I*4 EMBSL_DV_OWNUIC 
“QOO0O001E I*4 EMBSL_DV_ROPID meas 1*4 EMBSL_HD_SID 
~O000003F CHAR EMBST_DV_NAME -00000 $e It MBSW_DV_BCNT 
“00000022 I*2 EMB$W_DV_BOFF -0000002C I* MBS$W_DV_ERRCNT 
C I*2 EMBSW_DV_FUNC -Q000001A I*2 EMBSW_DV_ST 
2A I*2 EMBSW_DV_UNIT -00000004 I*2 EMBSW_HD_ENTRY 
I*2 EMBSW_HD-ERRSEQ “QOOOO1FC I*4 FIELD 
76 I*4 FINAL-MAP_REGISTER -000 10% 1*4 INDIRECT_ADDRESS 
5A_I*4 LINCNT -000000 3 I*4 LINES | 
AP @*i LUN -000001FO I*4 PAGE LENGTH 
“8090010 1*4 PAPER LINES MOVED - $8 B055 I*4 PREFIX 
1k CHAR PREF IR_CHARACTER - 3 i274 PREFIX CO 
Rote I*4 PREFIX" VALUE -000 38 A I*4 PREVIOOS_MAP_REGISTER 
1F8 I*4 SELECTED MAP_REGISTER - $9 62 14 SUFFIX 
-OOO001CF CHAR SUFFIX_CRARATTER -00 oree 1*4 SUFFIX COUNT 
~O00001E8 I*4 SUFFIX_VALUE -0000007E I*4 VECSL_MAPREG 
| 
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Dimensions 


Address Type 


. 
@ 
=< 
o 
® 
w 


EM*B 51 (0:511) 
EMBSL ~by mit ae 42 (0:104) 
EMBSQ-HD- TIME (2) 
PREFIX MARRAY (2) 
REG_HERALD 7 (0:8) 
SUPE IR ARRAY (2) 
VICSR 4 (0:2) 
ViCSR2 $ (0:1) 
v2CSR + ) 
veCSR2 (8:10) 
V5CSR 10 (1: :15) | 
v tens ¢ (11:12) 
vV4CSR (15:15) 
LABELS 
Address Label Address Label Address Label Address Label Address Label Address Label 
1-000001C8 10° 001D5 15° 1-000001E3 20° 1-Q00001EA 25° 1-000001F6 38 e's 949 £4'F 35° 
1-00000210 40° 1 9000216 45° 1-0000022B 50° 1-00000239 55° 1-00000246 60° 1-0000025F 65° 


FUNCTIONS AND SUBROUTINES REFERENCED 


Type Name Type Name Type Name Type Name Type Name Type Name 
BRIEF 32 I*4 COMPRESS4 CRYPTK DHEAD1 FRCTOF 
IRPSL_PID TRPSO 10SB IRP$W_BCNT IRP$W_BOFF LCPRINTER_QIO 1*4 LIBSEXTZV 
ER OuTPUT SYSSFAO UCBS$L_CHAR UCBSL_OPCNT 


LINCHR ORBSL_ OWN 
UCBSW_ERRCNT UCBSU STS 


byte 
integere2 
integer*4 


qiocode(1,27) 
qiocode(1,32) 
qiocode(1,35) 
qiocode(1,39) 


10 continue 
endif 


return 
end 


subroutine lcprinter_qio (lun,emb$w_dv_ func) 


include ‘src$:qiocommonr.for /nolist' 


lun 
emb$w_dv_ func 
qiocode(0:1,0:63) 


if (qiocode(0,0) .eq. 0) then 
qiocode(1,11) = Zloc(io$_writepblk) 
qiocode(1,26) = Zloc(io$_setchar) 


Zloc(io$_sensechar) 
Zloc(io$_writelblk) 
Zloc (io$_setmode) 

Zloc (io$_sensemode) 


qiocode(1,48) = Zloc(io$_writevblk) 

do 10,i = 0,63 

qiocode(0,i) = 33 

if (qiocode(1,i) .eq. 0) then 
jiocode(1,i) = Zloc(qio_string) 

endif —" 


all irp$w_func (lun,emb$u_dv_f 
aiocode(0, LibSextzv(0, 6-embSu_d re func))) 
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RCILCPRINTER.FOR; 
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PROGRAM SECTIONS 


Attributes 


Bytes 


QIOCOMMON 


§ SLOCAL 


1949 


Total Space Allocated 


ENTRY POINTS 


Address Type Name 
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VARIABLES 


Address Type Name 


Address Type Name 


a 
us au oaaW »~ 
w wns ~2 cw w aoda ww wt 
ad ax e< ze we Om SSE wow 
<-: ew ae z2-oO Py ee ps lrOuw 
YNdwwaer-<c> Seve —- eo2ca SCawesavovwvw s40e 
Ve ee EIT Be OW OO a es 
We EWM ew OOO KWH MOU EBAVE EOF eee 
YVewsg> e200 VM oe eV Bw Ze Ee Ee tt ts 
vrawaancz Petr rrrrrrp per eet TEES YY 
<£<4v0 Ow $$ ZO 2 eee ec CvVmnMwnmnrwnvwss 23 
RARAAAAAAAARAAABBRAAABARRAAABBARAAOR 
folelolololololololololelololololololololololalolololo lola lolololo) 
Od Od Od Od and Og Bas ad Og Bd Og Dd Od Od Sad Od Od Sd Sd ns Sa Od Dang Dd Sd Soh Sd Coed Od BG Bed Dd 
Seecaeaa&acaa& 
aq<aq<aaacacaca 
ie ie ie ie oe oe 
VVUOVOY 
4S2 


5 Ss 
= fs) uw we 4 a w<d SVexu™ 
SEgu 8 gwMiue Sastoxe S¥ese 

ke F $34 Kev 4esee=7eess oOnmu Oo ws 
- = =u eo yeTe _ CSwrloewre— www 
>Pawdw ”" Saseaue5 SVL VSS — =e 
se essuSSe-nscsserersauasenccSSeS 
<va00 t-t-4-4-t-4-4 tt ttt tte ee EES 


SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS5 


Ld Oe ne re es Os Oe ee Oe Os Od OG OE OS ORG Sons Od Sd Saad OG OG OG Omg OG Od Seg Ons Ong Ons OG OG OG OG OD 


PS EEEEEEEEEEEEEEEEEEEEEEEEEEEE EEE E 


VV VV VV VV BBV BEEBE VO VYYVYVYUYYY 


wren «= 
unwr 
tt ae Lael 


LCPRINTER_Q10 


CHAR J0$_WRITETRACKD 
Epoenede CHAR 108 10$ "WRI TEWTHBUF i 09900369 


ARRAYS 
Address Type Name Bytes Dimensions 
2-00000000 1*4 QIOCODE 512 (0:1, 0:63) 
LABELS 
Address Label 
ee 10 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name 
IRPSW_FUNC 


Type Name 
1*4 LIBSEXTZV 


COMMAND QUALIFIERS 
FORTRAN /LIS=LISS:LCPRINTER/OBJ=OBJ$:LCPRINTER MSRC$:LCPRINTER 


/ CHE CK= (NOBOUNDS , OVERFLOW, NOUNDERF LOW) 
/DEBUGS ( (NOS YMBOL § , TRACEBACK) 

ANDARD= (NOS YNTAX NO SOURCE FORM) | 
CESSORS WOLNEL ODE. 


ig eet9Re 99:98 :0 


CHAR 
CHAR af0- STRING. 


7 
/SHde(NOPR /wOG_ FLOATING 714 WOPTIAIIE. /WARNINGS /NOD_LINES /NOCROSS_REFERENCE /NOMACHINE_CODE 


COMPILATION STATISTICS 


Run Time: .87 seconds 
Elapsed Time: 1.40 seconds 
Page Faults: 49 

Dynamic Memory: 39 pages 
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